100 REM
110 REM WRITTEN BY UDO WOEHLER
120 REM
130 IFFL=0THENFL=1:LOAD"DIRECTORY-LOAD",8,1
140 GOSUB 460
150 PRINT"    BITTE LEGEN SIE EIN DISKETTE EIN"
160 PRINT"             TASTE DRUECKEN   [146]"
170 POKE198,0:WAIT198,1:GETS$
180 DIMF$(143),B%(143),T%(143),TR%(143),S%(143)
190 SYS49152,NA$,ZH%,F$,B%,T%,TR%,S%,"SURP"
200 FORT=0TOZH%-1
210 GOSUB460
220 PRINT"[154]DISK:";LEFT$(NA$,16);"[154]  ID:";RIGHT$(NA$,2)
230 PRINT:PRINT:PRINT"[154]PROGRAMMNAME   : ";F$(T)
240 PRINT:PRINT"[154]PROGRAMMLAENGE :";B%(T)
250 PRINT:PRINT"[154]ANFANGSBLOCK   :";TR%(T);"/";S%(T)
260 REM PROGRAMMTYP
270 A=(T%(T)AND7)
280 IFA=0THENA$="DEL"
290 IFA=1THENA$="SEQ"
300 IFA=2THENA$="PRG"
310 IFA=3THENA$="USR"
320 IFA=4THENA$="REL"
330 PRINT:PRINT"[154]PROGRAMMTYP    : ";A$
340 REM PRUEFT AUF ORDNUNGSGEMAESS ABGESCHLOSSEN
350 IF(T%(T)AND128)=0THENA$="NEIN":GOTO390
360 A$="JA"
370 PRINT:PRINT"[154]ABSCHLUSS OK  ?: ";A$
380 REM PRUEFT AUF SCHREIBSCHUTZ
390 IF(T%(T)AND64)=64THENA$="JA":GOTO410
400 A$="NEIN"
410 PRINT:PRINT"[154]SCHREIBSCHUTZ ?: ";A$
420 PRINT"          [154]   TASTE DRUECKEN   [146]";
430 POKE198,0:WAIT198,1:GETS$
440 NEXT T
450 PRINT"[147]":END
460 PRINT"[147]                                        ";
470 PRINT"             SHOW DIRECTORY             ";
480 PRINT"         [154]WRITTEN BY UDO WOEHLER         ";
490 PRINT"                                        "
500 RETURN